And some package and labeling info
#TODO harmonize color bars? at least for precip so it has brown for decreases
library(ggplot2)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyr)
library(kohonen)
library(vegan) # for vegdist function which gives a dissimilarity index
## Loading required package: permute
## Loading required package: lattice
## This is vegan 2.6-4
# for knitting
#
timeseries_dir <- 'python_curation/extracted_timeseries/'
# for console
timeseries_dir <- 'extracted_timeseries/'
# get ecs ordering/labels
esm_labels <- read.csv(paste0(timeseries_dir,'global_tas_allesms.csv'), stringsAsFactors = FALSE) %>%
select(esm) %>% distinct %>%
mutate(plotesm = paste0(letters[as.integer(row.names(.))], '.', esm),
ECS_order = as.integer(row.names(.)))
process_time_series <- function(time_series_df, esm_label_info,
hist_start = 1995, hist_end = 2014){
# Get ensemble member values for projection runs:
# 1. 2080-2099 average
# 2. loess detrend each ensemble member to get IAV
#
# split by run
non_hist <- time_series_df %>%
filter(experiment != 'historical') %>%
select(year, ann_agg, esm, experiment, ensemble, variable, region)
grouped <- split(non_hist, f = list(non_hist$esm,
non_hist$experiment,
non_hist$ensemble,
non_hist$variable ,
non_hist$region) )
# split creates group of every possible combo of the variables and fills in
# empty dataframes for the ones that don't exist in data. Drop those
grouped <- grouped[lapply(grouped, nrow)>0]
processed_groups <- lapply(grouped, FUN = function(run_df){
loess_resids <- loess(run_df$ann_agg ~ run_df$year)$residuals
run_df %>%
filter(year >= 2080, year <= 2099) %>%
group_by(esm, experiment, ensemble, variable, region) %>%
summarise(average_2080_2099 = mean(ann_agg)) %>%
ungroup %>%
mutate(iasd = sd((loess_resids))) ->
output_df
return(output_df)
})
individual_stats <- do.call(bind_rows, processed_groups)
rm(non_hist)
rm(grouped)
rm(processed_groups)
# calculate ensemble averages
individual_stats %>%
group_by(esm, experiment, variable,region) %>%
summarise(average_2080_2099 = mean(average_2080_2099),
iasd = mean(iasd)) %>%
ungroup ->
ensemble_stats
# get ensemble average historical average value:
time_series_df %>%
filter(experiment == 'historical',
year >= hist_start,
year <= hist_end) %>%
group_by(esm, experiment, ensemble, variable, region) %>%
summarise(historical_average = mean(ann_agg)) %>%
ungroup %>%
group_by(esm, experiment, variable, region) %>%
summarise(historical_average = mean(historical_average)) %>%
ungroup %>%
select(-experiment) ->
historical_ens
# shape and calculate changes for plotting:
ensemble_stats %>%
left_join(historical_ens, by = c('esm', 'variable', 'region')) %>%
left_join(esm_label_info, by = 'esm') %>%
mutate(change = average_2080_2099 - historical_average,
pct_change = 100*(average_2080_2099 - historical_average)/historical_average) ->
plot_tbl
return(plot_tbl)
}
prep_esm_TP_data <- function(esmname){
region_timeseries <- read.csv(paste0(timeseries_dir, 'IPCC_land_regions_tas_', esmname, '_timeseries_1980_2099.csv'),
stringsAsFactors = FALSE) %>% mutate(region = acronym)
region_tas_summary <- suppressMessages(process_time_series(time_series_df = region_timeseries, esm_label_info = esm_labels))
region_pr_summary <- suppressMessages(process_time_series(time_series_df =
read.csv(paste0(timeseries_dir, 'IPCC_land_regions_pr_', esmname,'_timeseries_1980_2099.csv'),
stringsAsFactors = FALSE) %>%
rename(ann_agg=pr) %>%
mutate(region = acronym) ,
esm_label_info = esm_labels))
# reshape so each row is an observation
# observation = esm - experiment - region - tas change-tas iasd - pr pct change
region_tas_summary %>%
select(esm, experiment, region, iasd, change) %>%
rename(tas_change = change) %>%
left_join(region_pr_summary %>%
select(esm, experiment, region, pct_change) %>%
rename(pr_pct = pct_change),
by = c('esm', 'experiment', 'region')) ->
region_summary
return(region_summary)
}
Consider an observation = esm - experiment - region - tas change-tas iasd - pr pct change
region_summary <- prep_esm_TP_data(esmname = 'CESM2-WACCM')
print(head(region_summary))
## # A tibble: 6 × 6
## esm experiment region iasd tas_change pr_pct
## <chr> <chr> <chr> <dbl> <dbl> <dbl>
## 1 CESM2-WACCM ssp126 ARP 0.320 1.38 -6.08
## 2 CESM2-WACCM ssp126 CAF 0.278 1.57 3.36
## 3 CESM2-WACCM ssp126 CAR 0.189 1.16 -1.48
## 4 CESM2-WACCM ssp126 CAU 0.407 1.93 -11.2
## 5 CESM2-WACCM ssp126 CNA 0.624 2.15 7.91
## 6 CESM2-WACCM ssp126 EAS 0.321 1.55 9.79
let’s see if it can learn the experiment or region clustering of the data points if I only give the numerical values
region_numerical <- as.data.frame(region_summary[c('iasd', "tas_change", "pr_pct")])
#### train the SOM ####
sample.size <- nrow(region_numerical)
print(paste('Num Observations is', sample.size ))
## [1] "Num Observations is 172"
## define a grid for the SOM and train
grid.size <- ceiling(sample.size ^ (1/2.5))
som.grid <- somgrid(xdim = grid.size, ydim = grid.size, topo = 'hexagonal', toroidal = T)
som.model <- som(data.matrix(region_numerical), grid = som.grid)
## extract some data to make it easier to use
som.events <- som.model$codes[[1]]
print(som.events)
## iasd tas_change pr_pct
## V1 0.2952877 3.090752 -12.5351842
## V2 0.3412370 2.262010 -11.0500349
## V3 0.3186548 1.544465 -7.9889043
## V4 0.3395871 2.605569 1.0146946
## V5 0.5060097 4.261916 8.8078429
## V6 0.4733200 4.107258 9.9252579
## V7 0.5608550 3.394034 2.0961786
## V8 0.3129828 2.895714 -7.6029336
## V9 0.3350444 2.080219 -5.5055766
## V10 0.3252088 2.042022 -6.3787719
## V11 0.3607340 1.578686 -6.2694959
## V12 0.3973447 2.325836 -0.4983461
## V13 0.3905721 2.953227 6.2948107
## V14 0.3696499 4.232897 7.2665055
## V15 0.3946111 3.515237 4.9437036
## V16 0.3565371 2.658638 -1.4269191
## V17 0.3034823 1.974943 -4.3703458
## V18 0.3507607 1.592711 -2.9655610
## V19 0.5572978 1.749577 0.2236376
## V20 0.4583123 2.097824 5.4112938
## V21 0.4666327 2.595243 7.9833191
## V22 0.3796468 3.086433 7.9579002
## V23 0.4024870 2.840527 3.4360825
## V24 0.2387949 2.572827 -2.6488312
## V25 0.3901146 2.533878 -1.1323046
## V26 0.3142031 1.169853 -1.5376660
## V27 0.4183328 1.294667 0.9893358
## V28 0.3478324 1.497359 3.8744208
## V29 0.5576115 1.830667 9.5476273
## V30 0.4019606 1.888671 12.4616453
## V31 0.4611882 2.671846 8.8334845
## V32 0.5004081 3.668804 4.0612848
## V33 0.4170023 2.905356 -1.1283357
## V34 0.3371190 1.879541 -0.8638286
## V35 0.4649556 1.669883 2.3575824
## V36 0.5162535 1.901239 7.7184159
## V37 0.3082541 2.415155 17.2964853
## V38 0.3417666 3.489589 20.1466450
## V39 0.5872495 5.325173 10.3260626
## V40 0.6374942 5.215304 4.2014967
## V41 0.4287497 4.343315 -2.0955642
## V42 0.3385132 3.630150 -10.0018833
## V43 0.3732186 3.443414 -5.9136100
## V44 0.2942119 2.908127 0.3735700
## V45 0.3612350 3.498587 16.6278427
## V46 0.3539766 5.341404 29.8234654
## V47 0.4204164 5.467077 22.4680063
## V48 0.5778865 6.001455 9.5194394
## V49 0.3150938 4.352278 -19.3549616
## V50 0.3059494 4.540768 -13.1523138
## V51 0.3749631 4.436196 -9.0514564
## V52 0.3926172 4.028057 0.2199396
## V53 0.5413141 5.152060 18.2938402
## V54 0.5347570 6.611581 19.5689415
## V55 0.5638872 5.821707 11.8535195
## V56 0.3744306 4.777483 -5.6331326
## V57 0.3210252 3.516715 -16.1372576
## V58 0.3758816 3.841793 -14.9606667
## V59 0.3299170 3.430447 -11.5364414
## V60 0.4277314 3.273411 -5.5848202
## V61 0.4787276 3.502074 10.1751835
## V62 0.4893869 4.141941 14.0648483
## V63 0.4661224 4.515684 11.8881599
## V64 0.4128600 4.162474 -3.4054168
# assign a color to each event because we have 3 metrics
# red = iasd
# green = temperature change
# blue = precip change
som.events.colors <- rgb( scales::rescale(som.events[,1], to =c(0,255)),
scales::rescale(som.events[,2], to =c(0,255)) ,
scales::rescale(som.events[,3], to =c(0,255)),
maxColorValue = 255)
# calculate a distance matrix
som.dist <- as.matrix(dist(som.events))
## generate a plot of the untrained data. this isn't really the configuration at first iteration, but
## serves as an example
plot(som.model,
type = 'mapping',
bg = som.events.colors[sample.int(length(som.events.colors), size = length(som.events.colors))],
keepMargins = F,
col = NA,
main = '')
## generate a plot after training.
plot(som.model,
type = 'mapping',
bg = som.events.colors,
keepMargins = F,
col = NA,
main = '')
#### look for a reasonable number of clusters ####
## Evaluate within cluster distances for different values of k. This is
## more dependent on the number of map units in the SOM than the structure
## of the underlying data, but until we have a better way...
## Define a function to calculate mean distance within each cluster. This
## is roughly analogous to the within clusters ss approach
clusterMeanDist <- function(clusters){
cluster.means = c()
for(c in unique(clusters)){
temp.members <- which(clusters == c)
if(length(temp.members) > 1){
temp.dist <- som.dist[temp.members,]
temp.dist <- temp.dist[,temp.members]
cluster.means <- append(cluster.means, mean(temp.dist))
}else(cluster.means <- 0)
}
return(mean(cluster.means))
}
try.k <- 2:62
cluster.dist.eval <- as.data.frame(matrix(ncol = 3, nrow = (length(try.k))))
colnames(cluster.dist.eval) <- c('k', 'kmeans', 'hclust')
for(i in 1:length(try.k)) {
cluster.dist.eval[i, 'k'] <- try.k[i]
cluster.dist.eval[i, 'kmeans'] <- clusterMeanDist(kmeans(som.events, centers = try.k[i], iter.max = 20)$cluster)
cluster.dist.eval[i, 'hclust'] <- clusterMeanDist(cutree(hclust(vegdist(som.events)), k = try.k[i]))
}
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
## Warning in vegdist(som.events): results may be meaningless because data have negative entries
## in method "bray"
plot(cluster.dist.eval[, 'kmeans'] ~ try.k,
type = 'l')
lines(cluster.dist.eval[, 'hclust'] ~ try.k,
col = 'red')
legend('topright',
legend = c('k-means', 'hierarchical'),
col = c('black', 'red'),
lty = c(1, 1))
Try k = 9
# Define a function for make a simple plot of clustering output.
## This is the same as previousl plotting, but we define the function
## here as we wanted to play with the color earlier.
plotSOM <- function(clusters){
plot(som.model,
type = 'mapping',
bg = som.events.colors,
keepMargins = F,
col = NA)
add.cluster.boundaries(som.model, clusters, color = 'red')
}
cluster.tries <- list()
for(k in c(5, 8, 9, 10)){
## k-means clustering
som.cluster.k <- kmeans(som.events, centers = k, iter.max = 100, nstart = 10)$cluster # k-means
## hierarchical clustering
som.dist <- dist(som.events) # hierarchical, step 1
som.cluster.h <- cutree(hclust(som.dist), k = k) # hierarchical, step 2
cluster.tries[[paste0('som.cluster.k.', k)]] <- som.cluster.k
cluster.tries[[paste0('som.cluster.h.', k)]] <- som.cluster.h
}
print('cluster size = 5')
## [1] "cluster size = 5"
plotSOM(cluster.tries$som.cluster.k.5)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
plotSOM(cluster.tries$som.cluster.h.5)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
print('cluster size = 8')
## [1] "cluster size = 8"
plotSOM(cluster.tries$som.cluster.k.8)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
plotSOM(cluster.tries$som.cluster.h.8)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
print('cluster size = 9')
## [1] "cluster size = 9"
plotSOM(cluster.tries$som.cluster.k.9)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
plotSOM(cluster.tries$som.cluster.h.9)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
print('cluster size = 10')
## [1] "cluster size = 10"
plotSOM(cluster.tries$som.cluster.k.10)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
plotSOM(cluster.tries$som.cluster.h.10)
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
## Warning in segments(grd$pts[u2, 1] + radius * cos(angle - pi/6), grd$pts[u2, :
## "color" is not a graphical parameter
robustness in terms of model fit and grid size
region_numerical <- as.data.frame(region_summary[c('iasd', "tas_change", "pr_pct")])
#### train the SOM ####
sample.size <- nrow(region_numerical)
print(paste('Num Observations is', sample.size ))
## [1] "Num Observations is 172"
## define a grid for the SOM and train
grid.size <- ceiling(sample.size ^ (1/2.5))
som.grid <- somgrid(xdim = grid.size, ydim = grid.size, topo = 'hexagonal', toroidal = T)
# 2 models with same grid size to test robustness across
som.model1 <- som(data.matrix(region_numerical), grid = som.grid)
som.model2 <- som(data.matrix(region_numerical), grid = som.grid)
som.events1 <- som.model1$codes[[1]]
# assign a color to each event because we have 3 metrics
# red = iasd
# green = temperature change
# blue = precip change
som.events.colors1 <- rgb( scales::rescale(som.events1[,1], to =c(0,255)),
scales::rescale(som.events1[,2], to =c(0,255)) ,
scales::rescale(som.events1[,3], to =c(0,255)),
maxColorValue = 255)
# calculate a distance matrix
som.dist1 <- as.matrix(dist(som.events1))
# and for estimate 2
som.events2 <- som.model2$codes[[1]]
som.events.colors2 <- rgb( scales::rescale(som.events2[,1], to =c(0,255)),
scales::rescale(som.events2[,2], to =c(0,255)) ,
scales::rescale(som.events2[,3], to =c(0,255)),
maxColorValue = 255)
# calculate a distance matrix
som.dist2 <- as.matrix(dist(som.events2))
## generate a plot after training.
plot(som.model1,
type = 'mapping',
bg = som.events.colors1,
keepMargins = F,
col = NA,
main = '')
plot(som.model2,
type = 'mapping',
bg = som.events.colors2,
keepMargins = F,
col = NA,
main = '')